7 :
8 :REM SETUP FOR DIRTOVAR V2
9 :
10 POKE52,141:POKE56,141:CLR
20 DIMTY$(151),NA$(151),LE$(151)
30 DV=PEEK(186):IFDV<8THENDV=8
40 SYS57812"DIRTOVAR V2",8,0:POKE780,0:    POKE781,0:POKE782,141:SYS65493
47 :
48 :REM  DIR PRINT PROGRAM
49 :
50 POKE53281,0:POKE53280,0:PRINT"[147]":SP$="                  "
60 GOSUB60000:IFPEEK(36096)=76THEN70
70 PRINT"[159]  [199]ET YOUR PRINTER READY AND INSERT THE"
80 PRINT"  DISK WHOSE DIRECTORY YOU WANT PRINTED."
90 PRINT"  [208]RESS [210][197][212][213][210][206][159] TO PRINT, [209][159] TO QUIT."
100 GETA$:IFA$<>CHR$(13)ANDA$<>"Q"THEN100
110 IFA$="Q"THEN500
117 :
118 :REM CHECK FOR PRINTER ON
119 :
120 OPEN4,4,7:CLOSE4:IFST=0THEN150
130 POKE214,10:PRINT:PRINT"[158]     [201] SAID GET YOUR PRINTER READY.[159]"
140 FORT=1TO2000:NEXT:POKE781,12:SYS59903:GOTO100
147 :
148 :REM  DIRTOVAR CHECK FOR 1581
149 :
150 OPEN15,DV,15,"I":POKE36124,49:POKE36125,56:CLOSE5:OPEN5,DV,5,"#"
160 PRINT#15,"U1";5;0;18;0:GET#5,JJ$,JJ$,JJ$:CLOSE15:CLOSE5
170 DL=664:IFJJ$<>"A"THENPOKE36124,52:POKE36125,48:DL=3160
180 SYS36096,DV
187 :
188 :REM  PRINT DIRECTORY
189 :
190 OPEN4,4
200 PRINT#4,"     "NA$(0)CHR$(13)
210 I=1:BL=0
220 IFNA$(I)=""THEN330
230 PRINT#4," "LE$(I);
240 PRINT#4,LEFT$(SP$,4-LEN(LE$(I)))NA$(I);
250 PRINT#4,LEFT$(SP$,18-LEN(NA$(I)))TY$(I);
260 PRINT#4,"  "LE$(I+1);
270 PRINT#4,LEFT$(SP$,4-LEN(LE$(I+1)))NA$(I+1);
280 PRINT#4,LEFT$(SP$,18-LEN(NA$(I+1)))TY$(I+1);
290 PRINT#4,"  "LE$(I+2);
300 PRINT#4,LEFT$(SP$,4-LEN(LE$(I+2)))NA$(I+2);
310 PRINT#4,LEFT$(SP$,18-LEN(NA$(I+2)))TY$(I+2)
320 I=I+3:GOTO220
330 BL=0:FORJ=1TOI:BL=BL+VAL(LE$(J)):NEXT:PRINT#4:PRINT#4,DL-BL"BLOCKS FREE"
340 PRINT#4:CLOSE4
350 PRINT"[147]":GOTO70
497 :
498 :REM  RETURN TO LOADSTAR
499 :
500 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
510 IFER%<>63THENEND
520 PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
530 PRINT"RUN"
540 POKE631,13:POKE632,13:POKE198,2:END
9997 :
9998 :REM  SCRATCH AND SAVE
9999 :
10000 OPEN15,8,15,"S0:BYTES 84":CLOSE15:SAVE"BYTES 84",8:END
59997 :
59998 :REM  UBIQUITOUS COPYRIGHT BOX
59999 :
60000 B9$="                                      "
60010 POKE214,14:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 FORI=0TO7:PRINTB9$:NEXT:PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 B9$(0)="[196] [201] [210] [197] [195] [212] [207] [210] [217]    [208] [210] [201] [206] [212]"
60040 B9$(1)="BY [198]ENDER [212]UCKER"
60050 B9$(2)="[214]1  ([195]) 1991 BY [211]OFTDISK, [201]NC."
60060 B9$(3)="[208]UBLISHED ON [204][207][193][196][211][212][193][210] #84"
60070 B9$(4)="[211]UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)="[193]LL [210]IGHTS [210]ESERVED"
60090 POKE214,16:PRINT:FORI=0TO5:PRINTTAB(20-(LEN(B9$(I))/2))""B9$(I):NEXT
60099 RETURN